﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Imports Utilerias
Imports Npgsql
Imports MySql.Data.MySqlClient
Public Class ClientesAdicFact
    Public Shared Function Build(ByVal dr As MySqlDataReader) As ClientesAdicBE
        Dim tmpClientesAdic As ClientesAdicBE = New ClientesAdicBE()
        Try
            With tmpClientesAdic
                .IdCli = convertDTFromDb.convertInt32(dr.Item("IdCli"))
                .campoLibre1 = convertDTFromDb.ConvertString(dr.Item("campoLibre1"))
                .campoLibre2 = convertDTFromDb.ConvertString(dr.Item("campoLibre2"))
                .campoLibre3 = convertDTFromDb.ConvertString(dr.Item("campoLibre3"))
                .campoLibre4 = convertDTFromDb.ConvertString(dr.Item("campoLibre4"))
                .campoLibre5 = convertDTFromDb.ConvertString(dr.Item("campoLibre5"))
                .campoLibre6 = convertDTFromDb.ConvertString(dr.Item("campoLibre6"))
                .campoLibre7 = convertDTFromDb.ConvertString(dr.Item("campoLibre7"))
                .campoLibre8 = convertDTFromDb.ConvertString(dr.Item("campoLibre8"))
                .Encabezado1 = convertDTFromDb.ConvertString(dr.Item("encabezado1"))
                .Nombre1 = convertDTFromDb.ConvertString(dr.Item("nombre1"))
                .Puesto1 = convertDTFromDb.ConvertString(dr.Item("puesto1"))
                .Encabezado2 = convertDTFromDb.ConvertString(dr.Item("encabezado2"))
                .Nombre2 = convertDTFromDb.ConvertString(dr.Item("nombre2"))
                .Puesto2 = convertDTFromDb.ConvertString(dr.Item("puesto2"))
                .Encabezado3 = convertDTFromDb.ConvertString(dr.Item("encabezado3"))
                .Nombre3 = convertDTFromDb.ConvertString(dr.Item("nombre3"))
                .Puesto3 = convertDTFromDb.ConvertString(dr.Item("puesto3"))
                .Encabezado4 = convertDTFromDb.ConvertString(dr.Item("encabezado4"))
                .Nombre4 = convertDTFromDb.ConvertString(dr.Item("nombre4"))
                .Puesto4 = convertDTFromDb.ConvertString(dr.Item("puesto4"))
                .Encabezado5 = convertDTFromDb.ConvertString(dr.Item("encabezado5"))
                .Nombre5 = convertDTFromDb.ConvertString(dr.Item("nombre5"))
                .Puesto5 = convertDTFromDb.ConvertString(dr.Item("puesto5"))
                .Encabezado6 = convertDTFromDb.ConvertString(dr.Item("encabezado6"))
                .Nombre6 = convertDTFromDb.ConvertString(dr.Item("nombre6"))
                .Puesto6 = convertDTFromDb.ConvertString(dr.Item("puesto6"))
            End With
            Return tmpClientesAdic
        Catch ex As Exception
            Throw
        Finally
            tmpClientesAdic = Nothing
        End Try
    End Function
End Class
